# create a random NMF object
a <- nmfModel(3, 10, 5)
a <- rnmf(a)
# set dimensions
dims <- list( features=paste('f', 1:nrow(a), sep=''), samples=paste('s', 1:ncol(a), sep=''), basis=paste('b', 1:nbasis(a), sep='') )
dimnames(a) <- dims
dimnames(a)
basis(a)
coef(a)
# access the dimensions separately
rownames(a)
colnames(a)
basisnames(a)
# set only the two first dimensions (rows and columns of basis and coef respectively)
dimnames(a) <- dims[1:2]
dimnames(a)
basis(a)
# set each dimensions separately
rownames(a) <- paste('X', 1:nrow(a), sep='') # only affect rows of basis
basis(a)
colnames(a) <- paste('Y', 1:ncol(a), sep='') # only affect columns of coef
coef(a)
basisnames(a) <- paste('Z', 1:nbasis(a), sep='') # affect both basis and coef matrices
basis(a)
coef(a)
Run the code above in your browser using DataLab